home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 3 / Commodore_Disc_03_19xx_-_de.d64 / spy (spion) (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  13KB  |  231 lines
  1. 100 rem **** (w)spy ****
  2. 102 rem th.portenlaenger
  3. 104 rem reitzensteinstr8
  4. 106 rem -8022 gruenwald-
  5. 108 rem einleitung/reset
  6. 110 dimh(4):s=54272:v=53248:a1=13045:a2=14024:a3=13247:j=12032:forx=1to3
  7. 112 h(x)=4e4-1e4*x:a$(x)="cpu":next
  8. 114 pokev+32,0:pokev+33,0:a=rnd(-ti)
  9. 116 print"[147]"tab(12)"[159]    [169]  [146][169][169]  [146][169][169][146][169][169][146][169]
  10. 118 [153][163]12)"   stepwaitstepvalvalstepwaitstepstepwaitstepstepwaitstepstepwaitstep
  11. 120 printtab(12)"  [169]  [146][169][169]  [146][169][169]  [146][169]
  12. 122 [153][163]12)"  valstepwaitstepstepwaitstepvalval valstepwaitstep
  13. 124 printtab(12)"[169]  [146][169][169][146][169]    [169][146][169]
  14. 126 [153][163]12)"valvalval val     val
  15. 128 printtab(12)"*** (c)1987 ***"
  16. 130 printtab(8)"sie haben den  auftrag,
  17. 132 [153][163]8)"plaene einer neuen ost-
  18. 134 printtab(8)"erfindung(chem.waffe)in
  19. 136 [153][163]8)"den westen zu bringen!!
  20. 138 forx=830to975step2
  21. 140 ifx<868thenz=1304+639*rnd(1):goto144
  22. 142 z=1144+759*rnd(1)
  23. 144 a=int(z/256):pokex,a
  24. 146 pokex+1,z-a*256:next
  25. 148 printtab(17)"<fire>"
  26. 150 wait56320,16,16:e=100:r=-5:p=56295
  27. 152 sysa1,0,56,208:sys13291,1:sys12376
  28. 154 poke168,0:r=r+5:k=10:ia=10:goto158
  29. 156 ia=ia+abs(22-x2/8)+29-y2/8
  30. 158 f=0:x2=176:y2=44:bx=0:by=8
  31. 160 e=e-(10-k)*15:ife<0then494
  32. 162 sysa1,208,57,0:sysa1,0,56,208
  33. 164 k=0:poke168,peek(168)+1:onpeek(168)goto168,220,272,324,356,514
  34. 166 rem * bilder *
  35. 168 print"[147]@@@@@@xxxxxxxxx[151]- - - - - -xxxxxxxxxxxxx[149][176]";
  36. 170 print"[149][189]              [151]     [162]                  [149][173]";
  37. 172 print"            ---  [194] [146][161]@[161] [194]  ---           ";
  38. 174 print"                   [146][161] [161]                  ";
  39. 176 print" [172][162][162][162][162][162][162][162][162][162][187]  [172][162][162][162][162][146][190] [161][209] [172][162][162][162][162][162][187]    x [213][201] ";
  40. 178 print" [146][161]@       @[161]  [146][161]@     [161][154][209] [146][161]@   @[161]@     [202][203] ";
  41. 180 print" [146][161] [172][162][162][162][162][162][187] [161]  [146][161] [172][162][162][187] [161]  [146][161] [172][162][187] [161][255] [195][209][195][195]   ";
  42. 182 print" [146][161] [161][206][205] [206][205][146][161] [161]  [146][161] [161]  [146][161] [161]  [146][161] [161] [146][161] [161]         ";
  43. 184 print" [146][161] [161] [206][205]  [146][161] [161]  [146][161] [161]  [146][161] [161]  [146][161] [161] [146][161] [161]         ";
  44. 186 print" [146][161] [188][162][162][162][162][162][146][190] [188][162][162][146][190] [161]xx[146][161] [188][162][162][146][190] [188][162][146][190][188][162][162][162][162][162][162][162][187] ";
  45. 188 print" [146][161]              [161]  [146][161]                 @[161]  ";
  46. 190 print"[146][161] [172][162][162][162][162][162][187] [172][162][162][187] [161][216][216][146][161] [172][162][162][162][162][162][162][187] [172][162][162]@[162][162][187] [161] ";
  47. 192 print" [146][161] [161] [216][216][216] [146][161] [161]  [146][161] [161]  [146][161] [161]      [146][161] [161][151]     [146][161] [161] ";
  48. 194 print" [146][161] [161] [216][216][216] [146][161] [161]  [146][161] [161]xx[146][161] [161] xxxx [146][161] @[151]  [209]  a[161] ";
  49. 196 print" [146][161] [188][162][162][162][162][162][146][190] [161]  [146][161] [161]  [146][161] [161] xxxx [146][161] [161][151]     [146][161] [161] ";
  50. 198 print" [146][161]@        [161]  [146][161] [161]  [146][161] [161]      [146][161] [161]  a  [146][161] [161] ";
  51. 200 print" [188][146][162][162][162]@[162][162][162][187] [161]  [146][161][188][162][162][146][190] [188][162][162][162][162][162][162][146][190] [188][162][162]a[162][162][146][190] [161]  ";
  52. 202 print"  [172] [194] [187].[146][161] [161]  [146][161]@                     @[161] ";
  53. 204 print"     [194]  .[146][161] [161]  [188][146][162][162][162][162][187] [172][162][162][162][162][162][162][187] [172][162][187] [172][162][162][162][190]   [195]";
  54. 206 print"[195][195][209][195][195].[146][161] [161] [193][193][193][193][193] [146][161] [161] [193][193][193][193] [146][161] [161] [146][161] [161]     ";
  55. 208 print"        .[146][161] [188][162][162][162][162][162][162][162][146][190] [188][162][162][162][162][162][162][146][190] [188][162][146][190] [161] xxx ";
  56. 210 print"        .[146][161]@                      @[161]     ";
  57. 212 print" [216][218][193]x   .[188][146][162][162][162][162][162][162][162][162][162][187] [172][162][162][162][162][162][162][162][162][162][162][162][162][190]     ";
  58. 214 print"                   [146][161]@[161]                  ";
  59. 216 print"                   [146][161]@[161]                 ";
  60. 218 pokep,5:sysa1,59,56,0:pokev+1,60:sysa2,98:y2=60:goto376
  61. 220 print"[147]@@@@@@             [146][161]@[161]                  ";
  62. 222 print"              xxxx [146][161] [161] xxxx             ";
  63. 224 print" [172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190] [188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187] ";
  64. 226 print" [146][161]@                                  @[161] ";
  65. 228 print" [146][161] [172][162][162][162][162][162][162][162][162][162][187] [172][162][162][162][187] [172][162][187][172][162][187][172][162][162][162][162][162][162][187][161] ";
  66. 230 print" [146][161] [161] x x x x [146][161] [161]   [146][161] [161] [146][161] [161] [146][161] [161]  xx  [146][161] [161] ";
  67. 232 print" [146][161] [188][162][162][162][162][162][162][162][162][162][146][190] [188][162][162][162][146][190] [161] [146][161] [188][162][146][190] [161]      [146][161] [161] ";
  68. 234 print" [146][161]                   [161] [146][161]@    [161]  [194]  [216][146][161] [161] ";
  69. 236 print" [146][161] [172][162][162][162][187][172][162][162][162][187][172][162][162][162][187][161] [188][146][162][162][162][187] [161]  [194]  [216][146][161] [161] ";
  70. 238 print" [146][161] [161]   [146][161] [161]^ ^[146][161] [161]   [146][161] [161] [218] [218] [146][161] @@ [209]  [216][146][161] [161] ";
  71. 240 print" [146][161] [161] [216] [146][161] [161]   [146][161] [161]   [146][161] [188][162][162][162][162][162][146][190] [161]  [194]  [216][146][161] [161] ";
  72. 242 print" [146][161] [161]   [146][161] [161] [166] [146][161] [161]   [146][161]         [161]  [194]  [216][146][161] [161] ";
  73. 244 print" [146][161] [161]   [146][161] [161][151]   [146][161] [161]xxx[146][161] [172][162][162][162][162][162][187] [161]      [146][161] [161] ";
  74. 246 print"[129][146][178][178] [178][178][178][178][178] [178][178][178][178][178] [178][178][178][178][178] [178][178][178][178][178][178][178] [178][178][178][178][178][178][178][178] [178][178]";
  75. 248 print"[177][177] [177][177][177][177][177] [177][177][177][177][177] [177][177][177][177][177] [177][177][177][177][177][177][177] [177][177][177][177][177][177][177][177] [177][177]";
  76. 250 print" [146][161] [188][162][162][162][146][190] [188][162][162][162][146][190] [161]   [146][161] [188][162][162][162][162][162][146][190] [188][162][162][162][162][162][162][146][190] [161] ";
  77. 252 print" [146][161]@            [161]   [146][161]                  [161] ";
  78. 254 print" [188][146][162][162][162][162][162][187][172][162][162][162][187][161]   [146][161][172][162][162][162][162][162][187][172][162][162][162][162][162][162][187] [161] ";
  79. 256 print"      .[146][161] [161]   [146][161] [161]   [146][161] [161] [193] [193] [146][161] [161] [193]  [193] [146][161] [161] ";
  80. 258 print"      .[146][161] [188][162][162][162][146][190] [188][162][162][162][146][190] [188][162][162][162][162][162][146][190] [188][162][162][162][162][162][162][146][190] [161] ";
  81. 260 print" [195][195][209][195] .[146][161]@                            @[161] ";
  82. 262 print"      .[188][146][162][162][162][162][162][162][162][162][162][162][162][187][172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][190] ";
  83. 264 print"                   [129][146][161] [161]                  ";
  84. 266 print"[183][163][183][163][163][163][163][183][163][163][183][183][163][163][163][183][163][163][163][129][146][161]@[161][163][163][183][163][183][163][163][183][163][163][163][163][183][163][163][183][163][163]";
  85. 268 print"                  [188][129][146][161]@[161][190]                ";
  86. 270 pokep,6:sysa1,59,55,0:sysa2,116:goto376
  87. 272 print"[147]@@@@@             [172][129][146][161]@[161][187]                 ";
  88. 274 print"[175][164][175][164][164][164][164][175][164][164][175][175][164][164][164][175][164][164][164][129][146][161] [161][164][164][175][164][175][164][164][175][164][164][164][164][175][164][164][175][164][164]";
  89. 276 print"                   [146][161] [161]                  ";
  90. 278 print" [172][162][162][162][162][162][162][162][162][162][162][187]      [146][161] [161] x [172][162][162][162][162][162][162][162][162][162][162][162][162][187] ";
  91. 280 print" [146][161]@        @[161] [195][209][195][195][146]@@ [161] x [146][161]@          @[161] ";
  92. 282 print" [146][161] [172][162][162][162][162][162][162][187] [161]      [146][161] [161]   [146][161] [172][162][162][162][162][187] [172][162][187] [161] ";
  93. 284 print" [146][161] [161]. xx  [146][161] [188][162][162][162][162][162][162][146][190] [188][162][162][162][146][190] [161]    [146][161] [161] [146][161] [161] ";
  94. 286 print" [146][161] [161].     [146][161]                [161]  [194] [146][161] [161] [146][161] [161] ";
  95. 288 print" [146][161] [161].[172] [194]  [146][161] [172][162][162][162][162][162][162][187] [172][162][162][162][187] [161]  [209] [146][161] [161] [146][161] [161] ";
  96. 290 print" [146][161] [161]   [194]  [146][161] [161]  x   [146][161] [161] x [146][161] [161]  [194] [146][161] [161] [146][161] [161] ";
  97. 292 print" [146][161] @@[195][195][209][195] [146][161] [161]      [146][161] [188][162][162][162][146][190] [188][162][162][162][162][146][190] [161] [146][161] [161] ";
  98. 294 print" [146][161] [161].  [194]  [146][161] [161][213][201] [194]  [146][161]             @[161] [146][161] [161] ";
  99. 296 print" [146][161] [161].[188] [194]  [146][161] [161][202][203] [209]  [146][161] [172][162][162][162][187] [172][162][162][162][162][162][162][190] [146][161] [161] ";
  100. 298 print" [146][161] [161].     [146][161] [161]   [194]  [146][161] [161]   [146][161] [161] [193] [193] [193]  [146][161] [161] ";
  101. 300 print" [146][161] [188][162][162][162][162][162][162][146][190] [161]   [194]  [146][161] [161] x [146][161] [161]        [146][161] [161] ";
  102. 302 print" [146][161]@        @[161]      [146][161] [161] x [146][161] [161] [216][216][216][216][216][216] [146][161] [161] ";
  103. 304 print" [188][146][162][162][162][162][187] [172][162][162][162][190] [161][209] [216][216][146][161] [161] x [146][161] [161] [206][205] [206][205]  [146][161] [161] ";
  104. 306 print"      [146][161] [161]          [146][161] [161]   [146][161] [161]  [206][205][206][205]  [146][161] [161] ";
  105. 308 print"      [146][161] [188][162][162][162][162][162][162][162][162][162][162][146][190] [188][162][162][162][146][190] [188][162][162][162][162][162][162][162][162][146][190] [161] ";
  106. 310 print" xxx  [146][161]@                             @[161] ";
  107. 312 print" xxx  [188][146][162][162][162][162][162][162][162][162][162][162][162][162][187][172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][190] ";
  108. 314 print"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162] [146][161] [161] [162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]";
  109. 316 print"     [213][195][201]           [146][161] [161]              [213][201][213][201]";
  110. 318 print" [213][195][201] [202][178][203] [213][195][195][156]  [194]  [218][177][146][161]@[161][177][218][156]  [194]  [195][195][195][195][195][195][195][179][171][179][194]";
  111. 320 print" [194][209][171][195]     [195][219][156] .[194]. [185][185][156] [194] [185][185][156] .[194].  [154]    [206][205][202][203][202]";
  112. 322 pokep,5:sysa1,59,55,152:sysa2,134:goto376
  113. 324 print"[147]@@@@@@      [156][195][195][209][195][195][180]  [194]  [170][195][195][209][195][195] [154]    [205][206]     ";
  114. 326 print"[194][209][194]        [156]  [194]  [180]  [194]  [170]  [194]   [154]      [213][201][213][201]";
  115. 328 print" [202][195][203]         a   . [156] [194]  .       xx   [202][203][202][203]";
  116. 330 print"aaaaa     aaaa [209] [209]  a[161] [209] [209]     [209][209]       ";
  117. 332 print"          [129][146][178][178][178][178][178][178][178][178][178][178]@@[178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][152][206][206][206]";
  118. 334 print"          [129][146][177][177][177][177][177][177][177][177][177][177]@@[177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][152][205][205][205]";
  119. 336 print"[146][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][190]@[188][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]";
  120. 338 print"[159]--    ----    ----    ----    ----    --";
  121. 340 forx=0to4^1
  122. 342 print"[176][174][176][174][176][174][176][174][176][174][176][174][176][174][176][174][176][174][176][174][176][174][176][174][176][174]";
  123. 344 print"[173][189][173][189][173][189][173][189][173][189][173][189][173][189][173][189][173][189][173][189][173][189][173][189][173][189]"
  124. 346 next:print"[145]--    ----    ----    ----    ----    --";
  125. 348 print"[151][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187]@[172][151][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]";
  126. 350 print"                    [182]a[181]                ";:pokep,5:poke2023,160
  127. 352 sysa2,62:pokev+1,108:goto444
  128. 354 pokev+33,5
  129. 356 print"[144][147]      [185][185][185][185][185][185]      [144][181] [182]      [144][146]   xx  [144][146][195][195][195][195]";
  130. 358 print"[206][206][206][144][185][185][185][185][185][185][185][185][185][195][195][195][195][195][195][144][181] [182][195][195][195][195][195][195][146][144] [206][205][213][201]  [146][144][195][195][195][195]";
  131. 360 print"    [213][195][201][213][195][201]    [187][172] [151][176][174][144][181] [182][151][176][174] [187][172]  [146][144] [205][206][202][203]      ";
  132. 362 print"    [202][195][203][202][195][203]    [178][218] [151][173][189][144][181] [182][151][173][189][146][144] [218][178]             ";
  133. 364 print"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][144][181].[182][184][144][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][146]";
  134. 366 print"[144]                                        ";
  135. 368 print"[146]-----------------[151][176][174][146]   [151][176][174][144][146]---------------";:poke2023,45
  136. 370 forx=0to9:poke1264+2.35*peek(53266),42:next:pokep,0
  137. 372 sys14682:goto468
  138. 374 rem * hauptprogramme *
  139. 376 sys13976:poke2023,160:pokev+17,27
  140. 378 ti$="000000":sysj:x1=peek(v)+256*peek(252)
  141. 380 y1=peek(v+1):sys13866:e=e-peek(164)
  142. 382 a=x1-x2:b=y1-y2
  143. 384 ifia>0thenia=ia-1:poke167,0:goto418
  144. 386 poke167,1:c=peek(15104+x2/8-2+40*int(y2/8-5))
  145. 388 ifc<>31thenf=f+1:if(fand1)=1then392
  146. 390 x2=x2+bx:y2=y2+by:goto414
  147. 392 ifby<>0thenx=b:y=a:w=by:xx=y2:yy=x2:u=1:p1=8:p2=2:p3=4:p4=1:goto396
  148. 394 x=a:y=b:w=bx:xx=x2:yy=y2:u=0:p1=1:p2=4:p3=2:p4=8
  149. 396 y=y+rnd(1)-.5:z=abs(x)-abs(y)
  150. 398 ifz<0then404
  151. 400 ifw>0andx>=0and(candp1)=p1then410
  152. 402 ifw<0andx<=0and(candp2)=p2then410
  153. 404 ify<0and(candp3)=p3thenby=-8+u*8:bx=-8*u:goto410
  154. 406 ify>0and(candp4)=p4thenby=8-u*8:bx=8*u:goto410
  155. 408 y=y/2-y:goto400
  156. 410 xx=xx+w:ifu=1thenyy=yy+bx:x2=yy:y2=xx:goto414
  157. 412 yy=yy+by:x2=xx:y2=yy
  158. 414 ifsgn(bx)<>sgn(a)orsgn(by)<>sgn(b)orpeek(150)=0then418
  159. 416 poke250,sgn(bx)+1:poke251,sgn(by)+1:sys13226
  160. 418 i=int(x2/256):poke247,i
  161. 420 pokev+2,x2-i*256:pokev+3,y2
  162. 422 poke2041,179+abs(sgn(bx))
  163. 424 sys12797:sys13144:ify1=228then156
  164. 426 print"e=    "e:e=e-1
  165. 428 ifpeek(249)thensysa3:e=e+20-r:k=k+1
  166. 430 ife<0orpeek(248)then494
  167. 432 ifpeek(170)thensys13272:ia=10
  168. 434 ifti<15then434
  169. 436 goto378
  170. 438 sysj:x=peek(v)+256*peek(252)
  171. 440 y=peek(v+1):sys13828:e=e-peek(164)
  172. 442 return
  173. 444 sys13925:sys13291,2:sys13976:pokev,184:pokev+17,27:a=0
  174. 446 sys13392:gosub438:sys13963:sys13552
  175. 448 b=1304+639*rnd(1):f=f+1
  176. 450 ifpeek(b)=32and(fand7)=0thenpokeb,160
  177. 452 c=1024+x/8-2+40*int(y/8-5)
  178. 454 ifpeek(c)=87thenpokec,32:poke248,0:sysa3:a=1:e=e+20
  179. 456 ifpeek(c)=88thenpokec,32:sysa3:poke248,0:e=e+25*sgn(rnd(1)-.5)
  180. 458 print"e=    "e:e=e-1
  181. 460 ify=236then492
  182. 462 ifpeek(249)thensysa3:e=e+20-r:k=k+1
  183. 464 ife<0orpeek(248)then494
  184. 466 goto446
  185. 468 sysa1,0,57,64:sysa1,208,57,36:pokev+1,92:pokev+17,27
  186. 470 gosub438:x=x-170
  187. 472 poke13518,abs(x-y)/16:poke13519,abs(x+y)/16
  188. 474 sys13653:sys13520:sys13552
  189. 476 b=1224+589*rnd(1):f=f+1
  190. 478 ifpeek(b)=32and(fand7)=0thenpokeb,160
  191. 480 print"[144]e=    "e:e=e-1:sys13723
  192. 482 ifpeek(249)thensysa3:e=e+20-r:k=k+1
  193. 484 ife<0orpeek(248)then494
  194. 486 ify=236then160
  195. 488 goto470
  196. 490 rem * ende/hi-score *
  197. 492 ifa=1then160
  198. 494 ife<0thenprint"e= 0 "
  199. 496 poke2040,184:sys13201:sys13902
  200. 498 fort=0to250:next:pokev+33,0
  201. 500 pokes+5,0:pokes+6,240:pokev+17,11
  202. 502 form=14508to14540step3
  203. 504 pokes,peek(m):pokes+1,peek(m+1)
  204. 506 pokes+4,0:fort=0to5:next:pokes+4,33
  205. 508 fort=0topeek(m+2)*17:next:next
  206. 510 print"[147]"tab(7)"--- sie haben verloren ---"
  207. 512 sys13707:goto546
  208. 514 ifr=0then152
  209. 516 sys13902:pokev+33,0
  210. 518 pokes+5,22:pokes+6,125:pokes+3,55
  211. 520 form=14472to14507step3
  212. 522 pokes,peek(m):pokes+1,peek(m+1)
  213. 524 pokes+4,0:pokes+4,65
  214. 526 fort=0topeek(m+2)*15:next:next
  215. 528 print"[147]   sie haben gewonnen und bekommen:":a=1e4+e*100
  216. 530 printtab(7)"* * * *"a"dm * * * *"
  217. 532 sys13707
  218. 534 input"               name :...[157][157][157][157][157]";a$
  219. 536 a$=left$(a$,3)
  220. 538 z=1:forx=1to3:ifa<h(x)thenz=z+1
  221. 540 next
  222. 542 forx=4tozstep-1:h(x)=h(x-1)
  223. 544 a$(x)=a$(x-1):next:h(z)=a:a$(z)=a$
  224. 546 printtab(15)"hi-scores"
  225. 548 printtab(15)"* * * * *"
  226. 550 forx=1to3:printtab(13)x"[157]-[157]"h(x);a$(x):next:print"":poke198,0
  227. 552 printtab(7)"wollen sie nocheinmal(j/n)"
  228. 554 geta$:ifa$="j"then114
  229. 556 ifa$="n"thenpokev+17,11:sys64738
  230. 558 goto554
  231.